home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 June (DVD) / DPPRO0605DVD.iso / Editorial / Programming with Delphi 2005 / Delphi 2005 1 / calcvatToNET / VATFORM.DFM / VATFORM.txt
Encoding:
Text File  |  2005-02-22  |  2.1 KB  |  102 lines
  1. object Form1: TForm1
  2.   Left = 261
  3.   Top = 180
  4.   ActiveControl = CalcBtn
  5.   BorderStyle = bsDialog
  6.   Caption = 'PC Pro VAT Calculator'
  7.   ClientHeight = 173
  8.   ClientWidth = 285
  9.   Color = clBtnFace
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -13
  13.   Font.Name = 'System'
  14.   Font.Style = []
  15.   OldCreateOrder = True
  16.   Position = poScreenCenter
  17.   PixelsPerInch = 96
  18.   TextHeight = 16
  19.   object CalcBtn: TButton
  20.     Left = 8
  21.     Top = 137
  22.     Width = 273
  23.     Height = 33
  24.     Caption = '&Calculate the Grand Total'
  25.     Font.Charset = DEFAULT_CHARSET
  26.     Font.Color = clBlack
  27.     Font.Height = -13
  28.     Font.Name = 'Times New Roman'
  29.     Font.Style = [fsBold]
  30.     ParentFont = False
  31.     TabOrder = 0
  32.     OnClick = CalcBtnClick
  33.   end
  34.   object GroupBox1: TGroupBox
  35.     Left = 8
  36.     Top = 1
  37.     Width = 273
  38.     Height = 129
  39.     Caption = ' Base Calc on...'
  40.     TabOrder = 1
  41.     object Label1: TLabel
  42.       Left = 168
  43.       Top = 56
  44.       Width = 20
  45.       Height = 16
  46.       Caption = 'Vat'
  47.     end
  48.     object SubTotRB: TRadioButton
  49.       Left = 152
  50.       Top = 24
  51.       Width = 89
  52.       Height = 17
  53.       Hint = 
  54.         'Select this to generate a grand total from the cost (ex VAT) in ' +
  55.         'the first field'
  56.       Caption = 'SubTotal'
  57.       Checked = True
  58.       TabOrder = 0
  59.       TabStop = True
  60.       OnClick = SubTotRBClick
  61.     end
  62.     object GrandTotRB: TRadioButton
  63.       Left = 152
  64.       Top = 88
  65.       Width = 97
  66.       Height = 17
  67.       Caption = 'Grand Total'
  68.       TabOrder = 1
  69.       OnClick = GrandTotRBClick
  70.     end
  71.     object SubTotal: TEdit
  72.       Left = 16
  73.       Top = 24
  74.       Width = 121
  75.       Height = 24
  76.       TabOrder = 2
  77.     end
  78.     object Vat: TEdit
  79.       Left = 16
  80.       Top = 56
  81.       Width = 121
  82.       Height = 24
  83.       ReadOnly = True
  84.       TabOrder = 3
  85.     end
  86.     object GrandTotal: TEdit
  87.       Left = 16
  88.       Top = 88
  89.       Width = 121
  90.       Height = 24
  91.       Hint = 
  92.         'Select this to generate a subtotal from the cost (inc VAT) in th' +
  93.         'e last field'
  94.       TabOrder = 4
  95.     end
  96.   end
  97.   object XPManifest1: TXPManifest
  98.     Left = 248
  99.     Top = 120
  100.   end
  101. end
  102.